home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / maestro / source / cdedit / cdedit.g < prev    next >
Encoding:
Text File  |  1993-06-15  |  67.0 KB  |  2,354 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :menu
  5.     :name                   DisplayTimeMenu
  6.     :help                   ""
  7.     :columns                1
  8.     :menu-type              :exclusive
  9.     :menu-handler           nil
  10.     :menu-title             "Display Time"
  11.     :menu-item-labels       ("Relative" "Absolute" )
  12.     :menu-item-label-types  (:string :string )
  13.     :menu-item-states       (:active :active )
  14.     :menu-item-defaults     (nil nil )
  15.     :initial-selections     (nil nil )
  16.     :menu-item-handlers     (RelativeTimeHandler AbsoluteTimeHandler )
  17.     :menu-item-menus        (nil nil )
  18.     :menu-item-colors       ("Black" "Black" )
  19.     :pinnable               nil
  20.     :user-data              ()
  21.     :actions                (
  22.         (
  23.         :from                   (DisplayTimeMenu "Relative")
  24.         :when                   (Notify )
  25.         :to                     (DisplayTimeMenu "Relative")
  26.         :function_type          CallFunction
  27.         :arg_type               ()
  28.         :action                 (RelativeTimeHandler)
  29.         )
  30.         (
  31.         :from                   (DisplayTimeMenu "Absolute")
  32.         :when                   (Notify )
  33.         :to                     (DisplayTimeMenu "Absolute")
  34.         :function_type          CallFunction
  35.         :arg_type               ()
  36.         :action                 (AbsoluteTimeHandler)
  37.         )
  38.     )
  39. )
  40. (
  41.     :type                   :menu
  42.     :name                   OptionsMenu
  43.     :help                   ""
  44.     :columns                1
  45.     :menu-type              :command
  46.     :menu-handler           nil
  47.     :menu-title             "Options"
  48.     :menu-item-labels       ("About cdEdit ..." "Connect with new Port Manager ..." "Display time" )
  49.     :menu-item-label-types  (:string :string :string )
  50.     :menu-item-states       (:active :active :active )
  51.     :menu-item-defaults     (t nil nil )
  52.     :initial-selections     (nil nil nil )
  53.     :menu-item-handlers     (InfoHandler ConnectPortManagerHandler nil )
  54.     :menu-item-menus        (nil nil DisplayTimeMenu )
  55.     :menu-item-colors       ("Black" "Black" "Black" )
  56.     :pinnable               t
  57.     :user-data              ()
  58.     :actions                (
  59.         (
  60.         :from                   (OptionsMenu "About cdEdit ...")
  61.         :when                   (Notify )
  62.         :to                     (OptionsMenu "About cdEdit ...")
  63.         :function_type          CallFunction
  64.         :arg_type               ()
  65.         :action                 (InfoHandler)
  66.         )
  67.         (
  68.         :from                   (OptionsMenu "Connect with new Port Manager ...")
  69.         :when                   (Notify )
  70.         :to                     (OptionsMenu "Connect with new Port Manager ...")
  71.         :function_type          CallFunction
  72.         :arg_type               ()
  73.         :action                 (ConnectPortManagerHandler)
  74.         )
  75.     )
  76. )
  77. (
  78.     :type                   :menu
  79.     :name                   DocumentMenu
  80.     :help                   ""
  81.     :columns                1
  82.     :menu-type              :command
  83.     :menu-handler           nil
  84.     :menu-title             "Document"
  85.     :menu-item-labels       ("Open" "Save" "Save as ... " "Close" "Close this window" )
  86.     :menu-item-label-types  (:string :string :string :string :string )
  87.     :menu-item-states       (:active :active :active :active :active )
  88.     :menu-item-defaults     (nil nil nil nil nil )
  89.     :initial-selections     (nil nil nil nil nil )
  90.     :menu-item-handlers     (OpenFileHandler SaveFileHandler SaveAsFileHandler CloseFileHandler CloseEditPopupHandler )
  91.     :menu-item-menus        (nil nil nil nil nil )
  92.     :menu-item-colors       ("Black" "Black" "Black" "Black" "Black" )
  93.     :pinnable               t
  94.     :user-data              ()
  95.     :actions                (
  96.         (
  97.         :from                   (DocumentMenu "Open")
  98.         :when                   (Notify )
  99.         :to                     (DocumentMenu "Open")
  100.         :function_type          CallFunction
  101.         :arg_type               ()
  102.         :action                 (OpenFileHandler)
  103.         )
  104.         (
  105.         :from                   (DocumentMenu "Save")
  106.         :when                   (Notify )
  107.         :to                     (DocumentMenu "Save")
  108.         :function_type          CallFunction
  109.         :arg_type               ()
  110.         :action                 (SaveFileHandler)
  111.         )
  112.         (
  113.         :from                   (DocumentMenu "Save as ... ")
  114.         :when                   (Notify )
  115.         :to                     (DocumentMenu "Save as ... ")
  116.         :function_type          CallFunction
  117.         :arg_type               ()
  118.         :action                 (SaveAsFileHandler)
  119.         )
  120.         (
  121.         :from                   (DocumentMenu "Close")
  122.         :when                   (Notify )
  123.         :to                     (DocumentMenu "Close")
  124.         :function_type          CallFunction
  125.         :arg_type               ()
  126.         :action                 (CloseFileHandler)
  127.         )
  128.         (
  129.         :from                   (DocumentMenu "Close this window")
  130.         :when                   (Notify )
  131.         :to                     (DocumentMenu "Close this window")
  132.         :function_type          CallFunction
  133.         :arg_type               ()
  134.         :action                 (CloseEditPopupHandler)
  135.         )
  136.     )
  137. )
  138. (
  139.     :type                   :menu
  140.     :name                   PreviewMenu
  141.     :help                   ""
  142.     :columns                1
  143.     :menu-type              :command
  144.     :menu-handler           nil
  145.     :menu-title             "Preview"
  146.     :menu-item-labels       ("Play whole edit" "Play part of edit ..." )
  147.     :menu-item-label-types  (:string :string )
  148.     :menu-item-states       (:active :active )
  149.     :menu-item-defaults     (t nil )
  150.     :initial-selections     (nil nil )
  151.     :menu-item-handlers     (PlayWholeEditHandler PlayPartialEditHandler )
  152.     :menu-item-menus        (nil nil )
  153.     :menu-item-colors       ("Black" "Black" )
  154.     :pinnable               t
  155.     :user-data              ()
  156.     :actions                (
  157.         (
  158.         :from                   (PreviewMenu "Play whole edit")
  159.         :when                   (Notify )
  160.         :to                     (PreviewMenu "Play whole edit")
  161.         :function_type          CallFunction
  162.         :arg_type               ()
  163.         :action                 (PlayWholeEditHandler)
  164.         )
  165.         (
  166.         :from                   (PreviewMenu "Play part of edit ...")
  167.         :when                   (Notify )
  168.         :to                     (PreviewMenu "Play part of edit ...")
  169.         :function_type          CallFunction
  170.         :arg_type               ()
  171.         :action                 (PlayPartialEditHandler)
  172.         )
  173.     )
  174. )
  175. (
  176.     :type                   :base-window
  177.     :name                   window1
  178.     :owner                  nil
  179.     :width                  238
  180.     :height                 386
  181.     :background-color       "Black"
  182.     :foreground-color       ""
  183.     :label                  "cdEdit"
  184.     :label-type             :string
  185.     :initial-state          :open
  186.     :show-footer            t
  187.     :resizable              nil
  188.     :icon-file              "icons/cdEditIcon"
  189.     :icon-label             ""
  190.     :icon-mask-file         ""
  191.     :event-handler          nil
  192.     :user-data              ()
  193.     :actions                ()
  194. )
  195. (
  196.     :type                   :control-area
  197.     :name                   MainControl
  198.     :owner                  window1
  199.     :help                   ""
  200.     :x                      0
  201.     :y                      0
  202.     :width                  237
  203.     :height                 386
  204.     :background-color       "Light Gray"
  205.     :foreground-color       "Black"
  206.     :initial-state          :visible
  207.     :show-border            nil
  208.     :menu                   nil
  209.     :event-handler          nil
  210.     :user-data              ()
  211.     :actions                ()
  212. )
  213. (
  214.     :type                   :button
  215.     :name                   OpenOptionsPopupButton
  216.     :owner                  MainControl
  217.     :help                   ""
  218.     :x                      12
  219.     :y                      12
  220.     :width                  80
  221.     :height                 19
  222.     :constant-width         nil
  223.     :button-type            :normal
  224.     :foreground-color       "Black"
  225.     :label                  "Options"
  226.     :label-type             :string
  227.     :initial-state          :active
  228.     :menu                   OptionsMenu
  229.     :notify-handler         nil
  230.     :event-handler          nil
  231.     :user-data              ()
  232.     :actions                ()
  233. )
  234. (
  235.     :type                   :button
  236.     :name                   OpenEditPopupButton
  237.     :owner                  MainControl
  238.     :help                   ""
  239.     :x                      104
  240.     :y                      12
  241.     :width                  55
  242.     :height                 19
  243.     :constant-width         nil
  244.     :button-type            :normal
  245.     :foreground-color       "Black"
  246.     :label                  " Edit..."
  247.     :label-type             :string
  248.     :initial-state          :active
  249.     :menu                   nil
  250.     :notify-handler         Edit
  251.     :event-handler          nil
  252.     :user-data              ()
  253.     :actions                (
  254.         (
  255.         :from                   (window1 OpenEditPopupButton)
  256.         :when                   (Notify )
  257.         :to                     (window1 OpenEditPopupButton)
  258.         :function_type          CallFunction
  259.         :arg_type               ()
  260.         :action                 (Edit)
  261.         )
  262.     )
  263. )
  264. (
  265.     :type                   :button
  266.     :name                   QuitButton
  267.     :owner                  MainControl
  268.     :help                   ""
  269.     :x                      168
  270.     :y                      12
  271.     :width                  57
  272.     :height                 19
  273.     :constant-width         nil
  274.     :button-type            :normal
  275.     :foreground-color       "Black"
  276.     :label                  " Quit  "
  277.     :label-type             :string
  278.     :initial-state          :active
  279.     :menu                   nil
  280.     :notify-handler         Quit
  281.     :event-handler          nil
  282.     :user-data              ()
  283.     :actions                (
  284.         (
  285.         :from                   (window1 QuitButton)
  286.         :when                   (Notify )
  287.         :to                     (window1 QuitButton)
  288.         :function_type          CallFunction
  289.         :arg_type               ()
  290.         :action                 (Quit)
  291.         )
  292.     )
  293. )
  294. (
  295.     :type                   :message
  296.     :name                   TotalTracksMsg
  297.     :owner                  MainControl
  298.     :help                   ""
  299.     :x                      20
  300.     :y                      48
  301.     :width                  112
  302.     :height                 13
  303.     :foreground-color       "Black"
  304.     :label                  "Total Tracks : 00"
  305.     :label-type             :string
  306.     :label-bold             t
  307.     :initial-state          :active
  308.     :event-handler          nil
  309.     :user-data              ()
  310.     :actions                ()
  311. )
  312. (
  313.     :type                   :message
  314.     :name                   TimeMsg
  315.     :owner                  MainControl
  316.     :help                   ""
  317.     :x                      140
  318.     :y                      48
  319.     :width                  81
  320.     :height                 13
  321.     :foreground-color       "Black"
  322.     :label                  "Time : 00:00"
  323.     :label-type             :string
  324.     :label-bold             t
  325.     :initial-state          :active
  326.     :event-handler          nil
  327.     :user-data              ()
  328.     :actions                ()
  329. )
  330. (
  331.     :type                   :button
  332.     :name                   OneButton
  333.     :owner                  MainControl
  334.     :help                   ""
  335.     :x                      16
  336.     :y                      80
  337.     :width                  58
  338.     :height                 19
  339.     :constant-width         nil
  340.     :button-type            :normal
  341.     :foreground-color       "Black"
  342.     :label                  "    1    "
  343.     :label-type             :string
  344.     :initial-state          :active
  345.     :menu                   nil
  346.     :notify-handler         One
  347.     :event-handler          nil
  348.     :user-data              ()
  349.     :actions                (
  350.         (
  351.         :from                   (window1 OneButton)
  352.         :when                   (Notify )
  353.         :to                     (window1 OneButton)
  354.         :function_type          CallFunction
  355.         :arg_type               ()
  356.         :action                 (One)
  357.         )
  358.     )
  359. )
  360. (
  361.     :type                   :button
  362.     :name                   TwoButton
  363.     :owner                  MainControl
  364.     :help                   ""
  365.     :x                      88
  366.     :y                      80
  367.     :width                  58
  368.     :height                 19
  369.     :constant-width         nil
  370.     :button-type            :normal
  371.     :foreground-color       "Black"
  372.     :label                  "    2    "
  373.     :label-type             :string
  374.     :initial-state          :active
  375.     :menu                   nil
  376.     :notify-handler         Two
  377.     :event-handler          nil
  378.     :user-data              ()
  379.     :actions                (
  380.         (
  381.         :from                   (window1 TwoButton)
  382.         :when                   (Notify )
  383.         :to                     (window1 TwoButton)
  384.         :function_type          CallFunction
  385.         :arg_type               ()
  386.         :action                 (Two)
  387.         )
  388.     )
  389. )
  390. (
  391.     :type                   :button
  392.     :name                   ThreeButton
  393.     :owner                  MainControl
  394.     :help                   ""
  395.     :x                      160
  396.     :y                      80
  397.     :width                  58
  398.     :height                 19
  399.     :constant-width         nil
  400.     :button-type            :normal
  401.     :foreground-color       "Black"
  402.     :label                  "    3    "
  403.     :label-type             :string
  404.     :initial-state          :active
  405.     :menu                   nil
  406.     :notify-handler         Three
  407.     :event-handler          nil
  408.     :user-data              ()
  409.     :actions                (
  410.         (
  411.         :from                   (window1 ThreeButton)
  412.         :when                   (Notify )
  413.         :to                     (window1 ThreeButton)
  414.         :function_type          CallFunction
  415.         :arg_type               ()
  416.         :action                 (Three)
  417.         )
  418.     )
  419. )
  420. (
  421.     :type                   :button
  422.     :name                   FourButton
  423.     :owner                  MainControl
  424.     :help                   ""
  425.     :x                      16
  426.     :y                      104
  427.     :width                  58
  428.     :height                 19
  429.     :constant-width         nil
  430.     :button-type            :normal
  431.     :foreground-color       "Black"
  432.     :label                  "    4    "
  433.     :label-type             :string
  434.     :initial-state          :active
  435.     :menu                   nil
  436.     :notify-handler         Four
  437.     :event-handler          nil
  438.     :user-data              ()
  439.     :actions                (
  440.         (
  441.         :from                   (window1 FourButton)
  442.         :when                   (Notify )
  443.         :to                     (window1 FourButton)
  444.         :function_type          CallFunction
  445.         :arg_type               ()
  446.         :action                 (Four)
  447.         )
  448.     )
  449. )
  450. (
  451.     :type                   :button
  452.     :name                   FiveButton
  453.     :owner                  MainControl
  454.     :help                   ""
  455.     :x                      88
  456.     :y                      104
  457.     :width                  58
  458.     :height                 19
  459.     :constant-width         nil
  460.     :button-type            :normal
  461.     :foreground-color       "Black"
  462.     :label                  "    5    "
  463.     :label-type             :string
  464.     :initial-state          :active
  465.     :menu                   nil
  466.     :notify-handler         Five
  467.     :event-handler          nil
  468.     :user-data              ()
  469.     :actions                (
  470.         (
  471.         :from                   (window1 FiveButton)
  472.         :when                   (Notify )
  473.         :to                     (window1 FiveButton)
  474.         :function_type          CallFunction
  475.         :arg_type               ()
  476.         :action                 (Five)
  477.         )
  478.     )
  479. )
  480. (
  481.     :type                   :button
  482.     :name                   SixButton
  483.     :owner                  MainControl
  484.     :help                   ""
  485.     :x                      160
  486.     :y                      104
  487.     :width                  58
  488.     :height                 19
  489.     :constant-width         nil
  490.     :button-type            :normal
  491.     :foreground-color       "Black"
  492.     :label                  "    6    "
  493.     :label-type             :string
  494.     :initial-state          :active
  495.     :menu                   nil
  496.     :notify-handler         Six
  497.     :event-handler          nil
  498.     :user-data              ()
  499.     :actions                (
  500.         (
  501.         :from                   (window1 SixButton)
  502.         :when                   (Notify )
  503.         :to                     (window1 SixButton)
  504.         :function_type          CallFunction
  505.         :arg_type               ()
  506.         :action                 (Six)
  507.         )
  508.     )
  509. )
  510. (
  511.     :type                   :button
  512.     :name                   SevenButton
  513.     :owner                  MainControl
  514.     :help                   ""
  515.     :x                      16
  516.     :y                      128
  517.     :width                  58
  518.     :height                 19
  519.     :constant-width         nil
  520.     :button-type            :normal
  521.     :foreground-color       "Black"
  522.     :label                  "    7    "
  523.     :label-type             :string
  524.     :initial-state          :active
  525.     :menu                   nil
  526.     :notify-handler         Seven
  527.     :event-handler          nil
  528.     :user-data              ()
  529.     :actions                (
  530.         (
  531.         :from                   (window1 SevenButton)
  532.         :when                   (Notify )
  533.         :to                     (window1 SevenButton)
  534.         :function_type          CallFunction
  535.         :arg_type               ()
  536.         :action                 (Seven)
  537.         )
  538.     )
  539. )
  540. (
  541.     :type                   :button
  542.     :name                   EightButton
  543.     :owner                  MainControl
  544.     :help                   ""
  545.     :x                      88
  546.     :y                      128
  547.     :width                  58
  548.     :height                 19
  549.     :constant-width         nil
  550.     :button-type            :normal
  551.     :foreground-color       "Black"
  552.     :label                  "    8    "
  553.     :label-type             :string
  554.     :initial-state          :active
  555.     :menu                   nil
  556.     :notify-handler         Eight
  557.     :event-handler          nil
  558.     :user-data              ()
  559.     :actions                (
  560.         (
  561.         :from                   (window1 EightButton)
  562.         :when                   (Notify )
  563.         :to                     (window1 EightButton)
  564.         :function_type          CallFunction
  565.         :arg_type               ()
  566.         :action                 (Eight)
  567.         )
  568.     )
  569. )
  570. (
  571.     :type                   :button
  572.     :name                   NineButton
  573.     :owner                  MainControl
  574.     :help                   ""
  575.     :x                      160
  576.     :y                      128
  577.     :width                  58
  578.     :height                 19
  579.     :constant-width         nil
  580.     :button-type            :normal
  581.     :foreground-color       "Black"
  582.     :label                  "    9    "
  583.     :label-type             :string
  584.     :initial-state          :active
  585.     :menu                   nil
  586.     :notify-handler         Nine
  587.     :event-handler          nil
  588.     :user-data              ()
  589.     :actions                (
  590.         (
  591.         :from                   (window1 NineButton)
  592.         :when                   (Notify )
  593.         :to                     (window1 NineButton)
  594.         :function_type          CallFunction
  595.         :arg_type               ()
  596.         :action                 (Nine)
  597.         )
  598.     )
  599. )
  600. (
  601.     :type                   :button
  602.     :name                   ZeroButton
  603.     :owner                  MainControl
  604.     :help                   ""
  605.     :x                      88
  606.     :y                      152
  607.     :width                  58
  608.     :height                 19
  609.     :constant-width         nil
  610.     :button-type            :normal
  611.     :foreground-color       "Black"
  612.     :label                  "    0    "
  613.     :label-type             :string
  614.     :initial-state          :active
  615.     :menu                   nil
  616.     :notify-handler         Zero
  617.     :event-handler          nil
  618.     :user-data              ()
  619.     :actions                (
  620.         (
  621.         :from                   (window1 ZeroButton)
  622.         :when                   (Notify )
  623.         :to                     (window1 ZeroButton)
  624.         :function_type          CallFunction
  625.         :arg_type               ()
  626.         :action                 (Zero)
  627.         )
  628.     )
  629. )
  630. (
  631.     :type                   :button
  632.     :name                   SearchButton
  633.     :owner                  MainControl
  634.     :help                   ""
  635.     :x                      16
  636.     :y                      176
  637.     :width                  58
  638.     :height                 19
  639.     :constant-width         nil
  640.     :button-type            :normal
  641.     :foreground-color       "Black"
  642.     :label                  "Search"
  643.     :label-type             :string
  644.     :initial-state          :active
  645.     :menu                   nil
  646.     :notify-handler         Search
  647.     :event-handler          nil
  648.     :user-data              ()
  649.     :actions                (
  650.         (
  651.         :from                   (window1 SearchButton)
  652.         :when                   (Notify )
  653.         :to                     (window1 SearchButton)
  654.         :function_type          CallFunction
  655.         :arg_type               ()
  656.         :action                 (Search)
  657.         )
  658.     )
  659. )
  660. (
  661.     :type                   :text-field
  662.     :name                   SearchTrackText
  663.     :owner                  MainControl
  664.     :help                   ""
  665.     :x                      76
  666.     :y                      180
  667.     :width                  141
  668.     :height                 15
  669.     :value-x                146
  670.     :value-y                180
  671.     :value-length           2
  672.     :stored-length          2
  673.     :rows                   3
  674.     :foreground-color       "Black"
  675.     :text-type              :numeric
  676.     :label                  " for track"
  677.     :label-type             :string
  678.     :layout-type            :horizontal
  679.     :value-underlined       t
  680.     :max-value              99
  681.     :min-value              0
  682.     :initial-value          0
  683.     :initial-state          :active
  684.     :read-only              nil
  685.     :notify-handler         SearchKbd
  686.     :event-handler          nil
  687.     :user-data              ()
  688.     :actions                (
  689.         (
  690.         :from                   (window1 SearchTrackText)
  691.         :when                   (Notify )
  692.         :to                     (window1 SearchTrackText)
  693.         :function_type          CallFunction
  694.         :arg_type               ()
  695.         :action                 (SearchKbd)
  696.         )
  697.     )
  698. )
  699. (
  700.     :type                   :message
  701.     :name                   DurationLabelMsg
  702.     :owner                  MainControl
  703.     :help                   ""
  704.     :x                      48
  705.     :y                      200
  706.     :width                  90
  707.     :height                 13
  708.     :foreground-color       "Black"
  709.     :label                  "Track Duration"
  710.     :label-type             :string
  711.     :label-bold             nil
  712.     :initial-state          :active
  713.     :event-handler          nil
  714.     :user-data              ()
  715.     :actions                ()
  716. )
  717. (
  718.     :type                   :message
  719.     :name                   DurationTimeMsg
  720.     :owner                  MainControl
  721.     :help                   ""
  722.     :x                      144
  723.     :y                      200
  724.     :width                  35
  725.     :height                 13
  726.     :foreground-color       "Black"
  727.     :label                  "00:00"
  728.     :label-type             :string
  729.     :label-bold             nil
  730.     :initial-state          :active
  731.     :event-handler          nil
  732.     :user-data              ()
  733.     :actions                ()
  734. )
  735. (
  736.     :type                   :message
  737.     :name                   TempDurationMsg
  738.     :owner                  MainControl
  739.     :help                   ""
  740.     :x                      104
  741.     :y                      216
  742.     :width                  35
  743.     :height                 13
  744.     :foreground-color       "Black"
  745.     :label                  "00:00"
  746.     :label-type             :string
  747.     :label-bold             t
  748.     :initial-state          :active
  749.     :event-handler          nil
  750.     :user-data              ()
  751.     :actions                ()
  752. )
  753. (
  754.     :type                   :slider
  755.     :name                   DurationSlider
  756.     :owner                  MainControl
  757.     :help                   ""
  758.     :x                      0
  759.     :y                      232
  760.     :width                  226
  761.     :height                 26
  762.     :value-x                0
  763.     :value-y                232
  764.     :slider-width           210
  765.     :ticks                  5
  766.     :foreground-color       "Black"
  767.     :label                  ""
  768.     :label-type             :string
  769.     :layout-type            :horizontal
  770.     :orientation            :horizontal
  771.     :show-endboxes          nil
  772.     :show-range             nil
  773.     :show-value             nil
  774.     :min-value              0
  775.     :max-value              100
  776.     :min-value-string       ""
  777.     :max-value-string       ""
  778.     :min-tick-string        ""
  779.     :max-tick-string        ""
  780.     :initial-value          0
  781.     :initial-state          :active
  782.     :notify-handler         Duration
  783.     :event-handler          nil
  784.     :user-data              ()
  785.     :actions                (
  786.         (
  787.         :from                   (window1 DurationSlider)
  788.         :when                   (Notify )
  789.         :to                     (window1 DurationSlider)
  790.         :function_type          CallFunction
  791.         :arg_type               ()
  792.         :action                 (Duration)
  793.         )
  794.     )
  795. )
  796. (
  797.     :type                   :button
  798.     :name                   PauseButton
  799.     :owner                  MainControl
  800.     :help                   ""
  801.     :x                      20
  802.     :y                      260
  803.     :width                  42
  804.     :height                 25
  805.     :constant-width         nil
  806.     :button-type            :normal
  807.     :foreground-color       "Black"
  808.     :label                  "icons/pauseIcon"
  809.     :label-type             :glyph
  810.     :initial-state          :active
  811.     :menu                   nil
  812.     :notify-handler         Pause
  813.     :event-handler          nil
  814.     :user-data              ()
  815.     :actions                (
  816.         (
  817.         :from                   (window1 PauseButton)
  818.         :when                   (Notify )
  819.         :to                     (window1 PauseButton)
  820.         :function_type          CallFunction
  821.         :arg_type               ()
  822.         :action                 (Pause)
  823.         )
  824.     )
  825. )
  826. (
  827.     :type                   :button
  828.     :name                   StopButton
  829.     :owner                  MainControl
  830.     :help                   ""
  831.     :x                      96
  832.     :y                      260
  833.     :width                  42
  834.     :height                 25
  835.     :constant-width         nil
  836.     :button-type            :normal
  837.     :foreground-color       "Black"
  838.     :label                  "icons/stopIcon"
  839.     :label-type             :glyph
  840.     :initial-state          :active
  841.     :menu                   nil
  842.     :notify-handler         Stop
  843.     :event-handler          nil
  844.     :user-data              ()
  845.     :actions                (
  846.         (
  847.         :from                   (window1 StopButton)
  848.         :when                   (Notify )
  849.         :to                     (window1 StopButton)
  850.         :function_type          CallFunction
  851.         :arg_type               ()
  852.         :action                 (Stop)
  853.         )
  854.     )
  855. )
  856. (
  857.     :type                   :button
  858.     :name                   PlayButton
  859.     :owner                  MainControl
  860.     :help                   ""
  861.     :x                      168
  862.     :y                      260
  863.     :width                  42
  864.     :height                 25
  865.     :constant-width         nil
  866.     :button-type            :normal
  867.     :foreground-color       "Black"
  868.     :label                  "icons/playIcon"
  869.     :label-type             :glyph
  870.     :initial-state          :active
  871.     :menu                   nil
  872.     :notify-handler         Play
  873.     :event-handler          nil
  874.     :user-data              ()
  875.     :actions                (
  876.         (
  877.         :from                   (window1 PlayButton)
  878.         :when                   (Notify )
  879.         :to                     (window1 PlayButton)
  880.         :function_type          CallFunction
  881.         :arg_type               ()
  882.         :action                 (Play)
  883.         )
  884.     )
  885. )
  886. (
  887.     :type                   :button
  888.     :name                   ReverseSkipButton
  889.     :owner                  MainControl
  890.     :help                   ""
  891.     :x                      20
  892.     :y                      292
  893.     :width                  42
  894.     :height                 22
  895.     :constant-width         nil
  896.     :button-type            :normal
  897.     :foreground-color       "Black"
  898.     :label                  "icons/rSkipIcon"
  899.     :label-type             :glyph
  900.     :initial-state          :active
  901.     :menu                   nil
  902.     :notify-handler         ReverseSkip
  903.     :event-handler          nil
  904.     :user-data              ()
  905.     :actions                (
  906.         (
  907.         :from                   (window1 ReverseSkipButton)
  908.         :when                   (Notify )
  909.         :to                     (window1 ReverseSkipButton)
  910.         :function_type          CallFunction
  911.         :arg_type               ()
  912.         :action                 (ReverseSkip)
  913.         )
  914.     )
  915. )
  916. (
  917.     :type                   :button
  918.     :name                   EjectButton
  919.     :owner                  MainControl
  920.     :help                   ""
  921.     :x                      96
  922.     :y                      292
  923.     :width                  42
  924.     :height                 22
  925.     :constant-width         nil
  926.     :button-type            :normal
  927.     :foreground-color       "Black"
  928.     :label                  "icons/ejectIcon"
  929.     :label-type             :glyph
  930.     :initial-state          :active
  931.     :menu                   nil
  932.     :notify-handler         Eject
  933.     :event-handler          nil
  934.     :user-data              ()
  935.     :actions                (
  936.         (
  937.         :from                   (window1 EjectButton)
  938.         :when                   (Notify )
  939.         :to                     (window1 EjectButton)
  940.         :function_type          CallFunction
  941.         :arg_type               ()
  942.         :action                 (Eject)
  943.         )
  944.     )
  945. )
  946. (
  947.     :type                   :button
  948.     :name                   ForwardSkipButton
  949.     :owner                  MainControl
  950.     :help                   ""
  951.     :x                      168
  952.     :y                      292
  953.     :width                  42
  954.     :height                 22
  955.     :constant-width         nil
  956.     :button-type            :normal
  957.     :foreground-color       "Black"
  958.     :label                  "icons/fSkipIcon"
  959.     :label-type             :glyph
  960.     :initial-state          :active
  961.     :menu                   nil
  962.     :notify-handler         ForwardSkip
  963.     :event-handler          nil
  964.     :user-data              ()
  965.     :actions                (
  966.         (
  967.         :from                   (window1 ForwardSkipButton)
  968.         :when                   (Notify )
  969.         :to                     (window1 ForwardSkipButton)
  970.         :function_type          CallFunction
  971.         :arg_type               ()
  972.         :action                 (ForwardSkip)
  973.         )
  974.     )
  975. )
  976. (
  977.     :type                   :slider
  978.     :name                   VolumeSlider
  979.     :owner                  MainControl
  980.     :help                   ""
  981.     :x                      8
  982.     :y                      324
  983.     :width                  221
  984.     :height                 26
  985.     :value-x                68
  986.     :value-y                324
  987.     :slider-width           140
  988.     :ticks                  3
  989.     :foreground-color       "Black"
  990.     :label                  "Volume  "
  991.     :label-type             :string
  992.     :layout-type            :horizontal
  993.     :orientation            :horizontal
  994.     :show-endboxes          nil
  995.     :show-range             nil
  996.     :show-value             nil
  997.     :min-value              110
  998.     :max-value              250
  999.     :min-value-string       ""
  1000.     :max-value-string       ""
  1001.     :min-tick-string        ""
  1002.     :max-tick-string        ""
  1003.     :initial-value          0
  1004.     :initial-state          :active
  1005.     :notify-handler         Volume
  1006.     :event-handler          nil
  1007.     :user-data              ()
  1008.     :actions                (
  1009.         (
  1010.         :from                   (window1 VolumeSlider)
  1011.         :when                   (Notify )
  1012.         :to                     (window1 VolumeSlider)
  1013.         :function_type          CallFunction
  1014.         :arg_type               ()
  1015.         :action                 (Volume)
  1016.         )
  1017.     )
  1018. )
  1019. (
  1020.     :type                   :slider
  1021.     :name                   BalanceSlider
  1022.     :owner                  MainControl
  1023.     :help                   ""
  1024.     :x                      8
  1025.     :y                      352
  1026.     :width                  223
  1027.     :height                 26
  1028.     :value-x                70
  1029.     :value-y                352
  1030.     :slider-width           140
  1031.     :ticks                  3
  1032.     :foreground-color       "Black"
  1033.     :label                  "Balance  "
  1034.     :label-type             :string
  1035.     :layout-type            :horizontal
  1036.     :orientation            :horizontal
  1037.     :show-endboxes          nil
  1038.     :show-range             nil
  1039.     :show-value             nil
  1040.     :min-value              -15
  1041.     :max-value              15
  1042.     :min-value-string       ""
  1043.     :max-value-string       ""
  1044.     :min-tick-string        ""
  1045.     :max-tick-string        ""
  1046.     :initial-value          0
  1047.     :initial-state          :active
  1048.     :notify-handler         Balance
  1049.     :event-handler          nil
  1050.     :user-data              ()
  1051.     :actions                (
  1052.         (
  1053.         :from                   (window1 BalanceSlider)
  1054.         :when                   (Notify )
  1055.         :to                     (window1 BalanceSlider)
  1056.         :function_type          CallFunction
  1057.         :arg_type               ()
  1058.         :action                 (Balance)
  1059.         )
  1060.     )
  1061. )
  1062. (
  1063.     :type                   :popup-window
  1064.     :name                   EditPopup
  1065.     :owner                  window1
  1066.     :width                  496
  1067.     :height                 448
  1068.     :background-color       "Black"
  1069.     :foreground-color       ""
  1070.     :label                  "CD Edit"
  1071.     :label-type             :string
  1072.     :initial-state          :invisible
  1073.     :show-footer            t
  1074.     :resizable              nil
  1075.     :pinned                 t
  1076.     :done-handler           nil
  1077.     :event-handler          nil
  1078.     :user-data              ()
  1079.     :actions                ()
  1080. )
  1081. (
  1082.     :type                   :control-area
  1083.     :name                   EditFileControl
  1084.     :owner                  EditPopup
  1085.     :help                   ""
  1086.     :x                      0
  1087.     :y                      0
  1088.     :width                  496
  1089.     :height                 48
  1090.     :background-color       "Light Gray"
  1091.     :foreground-color       "Black"
  1092.     :initial-state          :visible
  1093.     :show-border            nil
  1094.     :menu                   nil
  1095.     :event-handler          nil
  1096.     :user-data              ()
  1097.     :actions                ()
  1098. )
  1099. (
  1100.     :type                   :button
  1101.     :name                   DocumentButton
  1102.     :owner                  EditFileControl
  1103.     :help                   ""
  1104.     :x                      24
  1105.     :y                      16
  1106.     :width                  94
  1107.     :height                 19
  1108.     :constant-width         nil
  1109.     :button-type            :normal
  1110.     :foreground-color       "Black"
  1111.     :label                  "Document"
  1112.     :label-type             :string
  1113.     :initial-state          :active
  1114.     :menu                   DocumentMenu
  1115.     :notify-handler         nil
  1116.     :event-handler          nil
  1117.     :user-data              ()
  1118.     :actions                ()
  1119. )
  1120. (
  1121.     :type                   :text-field
  1122.     :name                   DiscLabelText
  1123.     :owner                  EditFileControl
  1124.     :help                   ""
  1125.     :x                      136
  1126.     :y                      16
  1127.     :width                  347
  1128.     :height                 15
  1129.     :value-x                227
  1130.     :value-y                16
  1131.     :value-length           32
  1132.     :stored-length          256
  1133.     :rows                   3
  1134.     :foreground-color       "Black"
  1135.     :text-type              :alphanumeric
  1136.     :label                  "Disc Label : "
  1137.     :label-type             :string
  1138.     :layout-type            :horizontal
  1139.     :value-underlined       t
  1140.     :initial-value          ""
  1141.     :initial-state          :active
  1142.     :read-only              nil
  1143.     :notify-handler         nil
  1144.     :event-handler          nil
  1145.     :user-data              ()
  1146.     :actions                ()
  1147. )
  1148. (
  1149.     :type                   :control-area
  1150.     :name                   EditListControl
  1151.     :owner                  EditPopup
  1152.     :help                   ""
  1153.     :x                      0
  1154.     :y                      49
  1155.     :width                  496
  1156.     :height                 215
  1157.     :background-color       "Light Gray"
  1158.     :foreground-color       "Black"
  1159.     :initial-state          :visible
  1160.     :show-border            nil
  1161.     :menu                   nil
  1162.     :event-handler          nil
  1163.     :user-data              ()
  1164.     :actions                ()
  1165. )
  1166. (
  1167.     :type                   :message
  1168.     :name                   EditListMainHeaderMsg
  1169.     :owner                  EditListControl
  1170.     :help                   ""
  1171.     :x                      220
  1172.     :y                      12
  1173.     :width                  56
  1174.     :height                 13
  1175.     :foreground-color       "Black"
  1176.     :label                  "Edit List"
  1177.     :label-type             :string
  1178.     :label-bold             t
  1179.     :initial-state          :active
  1180.     :event-handler          nil
  1181.     :user-data              ()
  1182.     :actions                ()
  1183. )
  1184. (
  1185.     :type                   :message
  1186.     :name                   EditListNumEditsMsg
  1187.     :owner                  EditListControl
  1188.     :help                   ""
  1189.     :x                      372
  1190.     :y                      12
  1191.     :width                  88
  1192.     :height                 13
  1193.     :foreground-color       "Black"
  1194.     :label                  "No. of Edits : 0"
  1195.     :label-type             :string
  1196.     :label-bold             nil
  1197.     :initial-state          :active
  1198.     :event-handler          nil
  1199.     :user-data              ()
  1200.     :actions                ()
  1201. )
  1202. (
  1203.     :type                   :message
  1204.     :name                   EditListHeaderMsg1
  1205.     :owner                  EditListControl
  1206.     :help                   ""
  1207.     :x                      32
  1208.     :y                      36
  1209.     :width                  192
  1210.     :height                 13
  1211.     :foreground-color       "Black"
  1212.     :label                  "  Edit #                          Label   "
  1213.     :label-type             :string
  1214.     :label-bold             nil
  1215.     :initial-state          :active
  1216.     :event-handler          nil
  1217.     :user-data              ()
  1218.     :actions                ()
  1219. )
  1220. (
  1221.     :type                   :message
  1222.     :name                   EditListHeaderMsg2
  1223.     :owner                  EditListControl
  1224.     :help                   ""
  1225.     :x                      312
  1226.     :y                      36
  1227.     :width                  112
  1228.     :height                 13
  1229.     :foreground-color       "Black"
  1230.     :label                  "Start               End"
  1231.     :label-type             :string
  1232.     :label-bold             nil
  1233.     :initial-state          :active
  1234.     :event-handler          nil
  1235.     :user-data              ()
  1236.     :actions                ()
  1237. )
  1238. (
  1239.     :type                   :scrolling-list
  1240.     :name                   EditList
  1241.     :owner                  EditListControl
  1242.     :help                   ""
  1243.     :x                      8
  1244.     :y                      56
  1245.     :width                  460
  1246.     :height                 146
  1247.     :value-x                8
  1248.     :value-y                56
  1249.     :rows                   7
  1250.     :foreground-color       "Black"
  1251.     :label                  ""
  1252.     :title                  ""
  1253.     :label-type             :string
  1254.     :layout-type            :horizontal
  1255.     :read-only              nil
  1256.     :multiple-selections    nil
  1257.     :selection-required     nil
  1258.     :initial-state          :active
  1259.     :droppable              nil
  1260.     :default-drop-site      nil
  1261.     :menu                   nil
  1262.     :notify-handler         List
  1263.     :event-handler          nil
  1264.     :initial-list-values    ()
  1265.     :initial-list-glyphs    ()
  1266.     :initial-selections     ()
  1267.     :user-data              ()
  1268.     :actions                (
  1269.         (
  1270.         :from                   (EditPopup EditList)
  1271.         :when                   (Notify )
  1272.         :to                     (EditPopup EditList)
  1273.         :function_type          CallFunction
  1274.         :arg_type               ()
  1275.         :action                 (List)
  1276.         )
  1277.     )
  1278. )
  1279. (
  1280.     :type                   :control-area
  1281.     :name                   EditCurrentSelectionControl
  1282.     :owner                  EditPopup
  1283.     :help                   ""
  1284.     :x                      0
  1285.     :y                      265
  1286.     :width                  496
  1287.     :height                 183
  1288.     :background-color       "Light Gray"
  1289.     :foreground-color       "Black"
  1290.     :initial-state          :visible
  1291.     :show-border            nil
  1292.     :menu                   nil
  1293.     :event-handler          nil
  1294.     :user-data              ()
  1295.     :actions                ()
  1296. )
  1297. (
  1298.     :type                   :message
  1299.     :name                   CurrentSelectionMsg
  1300.     :owner                  EditCurrentSelectionControl
  1301.     :help                   ""
  1302.     :x                      168
  1303.     :y                      12
  1304.     :width                  165
  1305.     :height                 13
  1306.     :foreground-color       "Black"
  1307.     :label                  "Current Selection : None"
  1308.     :label-type             :string
  1309.     :label-bold             t
  1310.     :initial-state          :active
  1311.     :event-handler          nil
  1312.     :user-data              ()
  1313.     :actions                ()
  1314. )
  1315. (
  1316.     :type                   :message
  1317.     :name                   CurrentSelectionTimeMsg
  1318.     :owner                  EditCurrentSelectionControl
  1319.     :help                   ""
  1320.     :x                      64
  1321.     :y                      36
  1322.     :width                  190
  1323.     :height                 13
  1324.     :foreground-color       "Black"
  1325.     :label                  "Track      Min       Sec      Frame"
  1326.     :label-type             :string
  1327.     :label-bold             nil
  1328.     :initial-state          :active
  1329.     :event-handler          nil
  1330.     :user-data              ()
  1331.     :actions                ()
  1332. )
  1333. (
  1334.     :type                   :text-field
  1335.     :name                   EditPopupStartTrackText
  1336.     :owner                  EditCurrentSelectionControl
  1337.     :help                   ""
  1338.     :x                      16
  1339.     :y                      52
  1340.     :width                  83
  1341.     :height                 15
  1342.     :value-x                63
  1343.     :value-y                52
  1344.     :value-length           2
  1345.     :stored-length          2
  1346.     :rows                   3
  1347.     :foreground-color       "Black"
  1348.     :text-type              :alphanumeric
  1349.     :label                  "Start :"
  1350.     :label-type             :string
  1351.     :layout-type            :horizontal
  1352.     :value-underlined       t
  1353.     :initial-value          ""
  1354.     :initial-state          :active
  1355.     :read-only              nil
  1356.     :notify-handler         nil
  1357.     :event-handler          nil
  1358.     :user-data              ()
  1359.     :actions                ()
  1360. )
  1361. (
  1362.     :type                   :message
  1363.     :name                   TimeColonMsg4
  1364.     :owner                  EditCurrentSelectionControl
  1365.     :help                   ""
  1366.     :x                      104
  1367.     :y                      52
  1368.     :width                  3
  1369.     :height                 13
  1370.     :foreground-color       "Black"
  1371.     :label                  ":"
  1372.     :label-type             :string
  1373.     :label-bold             t
  1374.     :initial-state          :active
  1375.     :event-handler          nil
  1376.     :user-data              ()
  1377.     :actions                ()
  1378. )
  1379. (
  1380.     :type                   :text-field
  1381.     :name                   EditPopupStartMinText
  1382.     :owner                  EditCurrentSelectionControl
  1383.     :help                   ""
  1384.     :x                      104
  1385.     :y                      52
  1386.     :width                  36
  1387.     :height                 15
  1388.     :value-x                104
  1389.     :value-y                52
  1390.     :value-length           2
  1391.     :stored-length          2
  1392.     :rows                   3
  1393.     :foreground-color       "Black"
  1394.     :text-type              :alphanumeric
  1395.     :label                  ""
  1396.     :label-type             :string
  1397.     :layout-type            :horizontal
  1398.     :value-underlined       t
  1399.     :initial-value          ""
  1400.     :initial-state          :active
  1401.     :read-only              nil
  1402.     :notify-handler         nil
  1403.     :event-handler          nil
  1404.     :user-data              ()
  1405.     :actions                ()
  1406. )
  1407. (
  1408.     :type                   :message
  1409.     :name                   TimeColonMsg6
  1410.     :owner                  EditCurrentSelectionControl
  1411.     :help                   ""
  1412.     :x                      156
  1413.     :y                      52
  1414.     :width                  3
  1415.     :height                 13
  1416.     :foreground-color       "Black"
  1417.     :label                  ":"
  1418.     :label-type             :string
  1419.     :label-bold             t
  1420.     :initial-state          :active
  1421.     :event-handler          nil
  1422.     :user-data              ()
  1423.     :actions                ()
  1424. )
  1425. (
  1426.     :type                   :text-field
  1427.     :name                   EditPopupStartSecText
  1428.     :owner                  EditCurrentSelectionControl
  1429.     :help                   ""
  1430.     :x                      156
  1431.     :y                      52
  1432.     :width                  36
  1433.     :height                 15
  1434.     :value-x                156
  1435.     :value-y                52
  1436.     :value-length           2
  1437.     :stored-length          2
  1438.     :rows                   3
  1439.     :foreground-color       "Black"
  1440.     :text-type              :alphanumeric
  1441.     :label                  ""
  1442.     :label-type             :string
  1443.     :layout-type            :horizontal
  1444.     :value-underlined       t
  1445.     :initial-value          ""
  1446.     :initial-state          :active
  1447.     :read-only              nil
  1448.     :notify-handler         nil
  1449.     :event-handler          nil
  1450.     :user-data              ()
  1451.     :actions                ()
  1452. )
  1453. (
  1454.     :type                   :message
  1455.     :name                   TimeColonMsg2
  1456.     :owner                  EditCurrentSelectionControl
  1457.     :help                   ""
  1458.     :x                      208
  1459.     :y                      52
  1460.     :width                  3
  1461.     :height                 13
  1462.     :foreground-color       "Black"
  1463.     :label                  ":"
  1464.     :label-type             :string
  1465.     :label-bold             t
  1466.     :initial-state          :active
  1467.     :event-handler          nil
  1468.     :user-data              ()
  1469.     :actions                ()
  1470. )
  1471. (
  1472.     :type                   :text-field
  1473.     :name                   EditPopupStartFrameText
  1474.     :owner                  EditCurrentSelectionControl
  1475.     :help                   ""
  1476.     :x                      208
  1477.     :y                      52
  1478.     :width                  36
  1479.     :height                 15
  1480.     :value-x                208
  1481.     :value-y                52
  1482.     :value-length           2
  1483.     :stored-length          2
  1484.     :rows                   3
  1485.     :foreground-color       "Black"
  1486.     :text-type              :alphanumeric
  1487.     :label                  ""
  1488.     :label-type             :string
  1489.     :layout-type            :horizontal
  1490.     :value-underlined       t
  1491.     :initial-value          ""
  1492.     :initial-state          :active
  1493.     :read-only              nil
  1494.     :notify-handler         nil
  1495.     :event-handler          nil
  1496.     :user-data              ()
  1497.     :actions                ()
  1498. )
  1499. (
  1500.     :type                   :button
  1501.     :name                   GetStartButton
  1502.     :owner                  EditCurrentSelectionControl
  1503.     :help                   ""
  1504.     :x                      264
  1505.     :y                      52
  1506.     :width                  34
  1507.     :height                 19
  1508.     :constant-width         nil
  1509.     :button-type            :normal
  1510.     :foreground-color       "Black"
  1511.     :label                  "<-"
  1512.     :label-type             :string
  1513.     :initial-state          :active
  1514.     :menu                   nil
  1515.     :notify-handler         GetStart
  1516.     :event-handler          nil
  1517.     :user-data              ()
  1518.     :actions                (
  1519.         (
  1520.         :from                   (EditPopup GetStartButton)
  1521.         :when                   (Notify )
  1522.         :to                     (EditPopup GetStartButton)
  1523.         :function_type          CallFunction
  1524.         :arg_type               ()
  1525.         :action                 (GetStart)
  1526.         )
  1527.     )
  1528. )
  1529. (
  1530.     :type                   :message
  1531.     :name                   GetTimeMsg1
  1532.     :owner                  EditCurrentSelectionControl
  1533.     :help                   ""
  1534.     :x                      304
  1535.     :y                      60
  1536.     :width                  101
  1537.     :height                 13
  1538.     :foreground-color       "Black"
  1539.     :label                  "Get current time"
  1540.     :label-type             :string
  1541.     :label-bold             nil
  1542.     :initial-state          :active
  1543.     :event-handler          nil
  1544.     :user-data              ()
  1545.     :actions                ()
  1546. )
  1547. (
  1548.     :type                   :text-field
  1549.     :name                   EditPopupEndTrackText
  1550.     :owner                  EditCurrentSelectionControl
  1551.     :help                   ""
  1552.     :x                      16
  1553.     :y                      76
  1554.     :width                  84
  1555.     :height                 15
  1556.     :value-x                64
  1557.     :value-y                76
  1558.     :value-length           2
  1559.     :stored-length          2
  1560.     :rows                   3
  1561.     :foreground-color       "Black"
  1562.     :text-type              :alphanumeric
  1563.     :label                  "End   :"
  1564.     :label-type             :string
  1565.     :layout-type            :horizontal
  1566.     :value-underlined       t
  1567.     :initial-value          ""
  1568.     :initial-state          :active
  1569.     :read-only              nil
  1570.     :notify-handler         nil
  1571.     :event-handler          nil
  1572.     :user-data              ()
  1573.     :actions                ()
  1574. )
  1575. (
  1576.     :type                   :message
  1577.     :name                   TimeColonMsg5
  1578.     :owner                  EditCurrentSelectionControl
  1579.     :help                   ""
  1580.     :x                      104
  1581.     :y                      76
  1582.     :width                  3
  1583.     :height                 13
  1584.     :foreground-color       "Black"
  1585.     :label                  ":"
  1586.     :label-type             :string
  1587.     :label-bold             t
  1588.     :initial-state          :active
  1589.     :event-handler          nil
  1590.     :user-data              ()
  1591.     :actions                ()
  1592. )
  1593. (
  1594.     :type                   :text-field
  1595.     :name                   EditPopupEndMinText
  1596.     :owner                  EditCurrentSelectionControl
  1597.     :help                   ""
  1598.     :x                      104
  1599.     :y                      76
  1600.     :width                  36
  1601.     :height                 15
  1602.     :value-x                104
  1603.     :value-y                76
  1604.     :value-length           2
  1605.     :stored-length          2
  1606.     :rows                   3
  1607.     :foreground-color       "Black"
  1608.     :text-type              :alphanumeric
  1609.     :label                  ""
  1610.     :label-type             :string
  1611.     :layout-type            :horizontal
  1612.     :value-underlined       t
  1613.     :initial-value          ""
  1614.     :initial-state          :active
  1615.     :read-only              nil
  1616.     :notify-handler         nil
  1617.     :event-handler          nil
  1618.     :user-data              ()
  1619.     :actions                ()
  1620. )
  1621. (
  1622.     :type                   :message
  1623.     :name                   TimeColonMsg1
  1624.     :owner                  EditCurrentSelectionControl
  1625.     :help                   ""
  1626.     :x                      156
  1627.     :y                      76
  1628.     :width                  3
  1629.     :height                 13
  1630.     :foreground-color       "Black"
  1631.     :label                  ":"
  1632.     :label-type             :string
  1633.     :label-bold             t
  1634.     :initial-state          :active
  1635.     :event-handler          nil
  1636.     :user-data              ()
  1637.     :actions                ()
  1638. )
  1639. (
  1640.     :type                   :text-field
  1641.     :name                   EditPopupEndSecText
  1642.     :owner                  EditCurrentSelectionControl
  1643.     :help                   ""
  1644.     :x                      156
  1645.     :y                      76
  1646.     :width                  36
  1647.     :height                 15
  1648.     :value-x                156
  1649.     :value-y                76
  1650.     :value-length           2
  1651.     :stored-length          2
  1652.     :rows                   3
  1653.     :foreground-color       "Black"
  1654.     :text-type              :alphanumeric
  1655.     :label                  ""
  1656.     :label-type             :string
  1657.     :layout-type            :horizontal
  1658.     :value-underlined       t
  1659.     :initial-value          ""
  1660.     :initial-state          :active
  1661.     :read-only              nil
  1662.     :notify-handler         nil
  1663.     :event-handler          nil
  1664.     :user-data              ()
  1665.     :actions                ()
  1666. )
  1667. (
  1668.     :type                   :message
  1669.     :name                   TimeColonMsg3
  1670.     :owner                  EditCurrentSelectionControl
  1671.     :help                   ""
  1672.     :x                      208
  1673.     :y                      76
  1674.     :width                  3
  1675.     :height                 13
  1676.     :foreground-color       "Black"
  1677.     :label                  ":"
  1678.     :label-type             :string
  1679.     :label-bold             t
  1680.     :initial-state          :active
  1681.     :event-handler          nil
  1682.     :user-data              ()
  1683.     :actions                ()
  1684. )
  1685. (
  1686.     :type                   :text-field
  1687.     :name                   EditPopupEndFrameText
  1688.     :owner                  EditCurrentSelectionControl
  1689.     :help                   ""
  1690.     :x                      208
  1691.     :y                      76
  1692.     :width                  36
  1693.     :height                 15
  1694.     :value-x                208
  1695.     :value-y                76
  1696.     :value-length           2
  1697.     :stored-length          2
  1698.     :rows                   3
  1699.     :foreground-color       "Black"
  1700.     :text-type              :alphanumeric
  1701.     :label                  ""
  1702.     :label-type             :string
  1703.     :layout-type            :horizontal
  1704.     :value-underlined       t
  1705.     :initial-value          ""
  1706.     :initial-state          :active
  1707.     :read-only              nil
  1708.     :notify-handler         nil
  1709.     :event-handler          nil
  1710.     :user-data              ()
  1711.     :actions                ()
  1712. )
  1713. (
  1714.     :type                   :button
  1715.     :name                   GetEndButton
  1716.     :owner                  EditCurrentSelectionControl
  1717.     :help                   ""
  1718.     :x                      264
  1719.     :y                      76
  1720.     :width                  34
  1721.     :height                 19
  1722.     :constant-width         nil
  1723.     :button-type            :normal
  1724.     :foreground-color       "Black"
  1725.     :label                  "<-"
  1726.     :label-type             :string
  1727.     :initial-state          :active
  1728.     :menu                   nil
  1729.     :notify-handler         GetEnd
  1730.     :event-handler          nil
  1731.     :user-data              ()
  1732.     :actions                (
  1733.         (
  1734.         :from                   (EditPopup GetEndButton)
  1735.         :when                   (Notify )
  1736.         :to                     (EditPopup GetEndButton)
  1737.         :function_type          CallFunction
  1738.         :arg_type               ()
  1739.         :action                 (GetEnd)
  1740.         )
  1741.     )
  1742. )
  1743. (
  1744.     :type                   :message
  1745.     :name                   GetTimeMsg2
  1746.     :owner                  EditCurrentSelectionControl
  1747.     :help                   ""
  1748.     :x                      324
  1749.     :y                      76
  1750.     :width                  57
  1751.     :height                 13
  1752.     :foreground-color       "Black"
  1753.     :label                  "from disc"
  1754.     :label-type             :string
  1755.     :label-bold             nil
  1756.     :initial-state          :active
  1757.     :event-handler          nil
  1758.     :user-data              ()
  1759.     :actions                ()
  1760. )
  1761. (
  1762.     :type                   :text-field
  1763.     :name                   EditPopupLabelText
  1764.     :owner                  EditCurrentSelectionControl
  1765.     :help                   ""
  1766.     :x                      16
  1767.     :y                      100
  1768.     :width                  253
  1769.     :height                 15
  1770.     :value-x                69
  1771.     :value-y                100
  1772.     :value-length           25
  1773.     :stored-length          256
  1774.     :rows                   3
  1775.     :foreground-color       "Black"
  1776.     :text-type              :alphanumeric
  1777.     :label                  "Label :"
  1778.     :label-type             :string
  1779.     :layout-type            :horizontal
  1780.     :value-underlined       t
  1781.     :initial-value          ""
  1782.     :initial-state          :active
  1783.     :read-only              nil
  1784.     :notify-handler         LabelText
  1785.     :event-handler          nil
  1786.     :user-data              ()
  1787.     :actions                (
  1788.         (
  1789.         :from                   (EditPopup EditPopupLabelText)
  1790.         :when                   (Notify )
  1791.         :to                     (EditPopup EditPopupLabelText)
  1792.         :function_type          CallFunction
  1793.         :arg_type               ()
  1794.         :action                 (LabelText)
  1795.         )
  1796.     )
  1797. )
  1798. (
  1799.     :type                   :button
  1800.     :name                   OpenPreviewPopupButton
  1801.     :owner                  EditCurrentSelectionControl
  1802.     :help                   ""
  1803.     :x                      376
  1804.     :y                      112
  1805.     :width                  57
  1806.     :height                 19
  1807.     :constant-width         t
  1808.     :button-type            :normal
  1809.     :foreground-color       "Black"
  1810.     :label                  "Preview"
  1811.     :label-type             :string
  1812.     :initial-state          :active
  1813.     :menu                   PreviewMenu
  1814.     :notify-handler         nil
  1815.     :event-handler          nil
  1816.     :user-data              ()
  1817.     :actions                ()
  1818. )
  1819. (
  1820.     :type                   :text-field
  1821.     :name                   EditPopupDurationText
  1822.     :owner                  EditCurrentSelectionControl
  1823.     :help                   ""
  1824.     :x                      16
  1825.     :y                      124
  1826.     :width                  228
  1827.     :height                 15
  1828.     :value-x                180
  1829.     :value-y                124
  1830.     :value-length           8
  1831.     :stored-length          80
  1832.     :rows                   3
  1833.     :foreground-color       "Black"
  1834.     :text-type              :alphanumeric
  1835.     :label                  "Approximate duration :"
  1836.     :label-type             :string
  1837.     :layout-type            :horizontal
  1838.     :value-underlined       t
  1839.     :initial-value          ""
  1840.     :initial-state          :active
  1841.     :read-only              t
  1842.     :notify-handler         nil
  1843.     :event-handler          nil
  1844.     :user-data              ()
  1845.     :actions                ()
  1846. )
  1847. (
  1848.     :type                   :message
  1849.     :name                   DurationMsg
  1850.     :owner                  EditCurrentSelectionControl
  1851.     :help                   ""
  1852.     :x                      252
  1853.     :y                      124
  1854.     :width                  48
  1855.     :height                 13
  1856.     :foreground-color       "Black"
  1857.     :label                  "seconds"
  1858.     :label-type             :string
  1859.     :label-bold             nil
  1860.     :initial-state          :active
  1861.     :event-handler          nil
  1862.     :user-data              ()
  1863.     :actions                ()
  1864. )
  1865. (
  1866.     :type                   :button
  1867.     :name                   AddButton
  1868.     :owner                  EditCurrentSelectionControl
  1869.     :help                   ""
  1870.     :x                      32
  1871.     :y                      152
  1872.     :width                  57
  1873.     :height                 19
  1874.     :constant-width         t
  1875.     :button-type            :normal
  1876.     :foreground-color       "Black"
  1877.     :label                  "    Add"
  1878.     :label-type             :string
  1879.     :initial-state          :active
  1880.     :menu                   nil
  1881.     :notify-handler         EditAdd
  1882.     :event-handler          nil
  1883.     :user-data              ()
  1884.     :actions                (
  1885.         (
  1886.         :from                   (EditPopup AddButton)
  1887.         :when                   (Notify )
  1888.         :to                     (EditPopup AddButton)
  1889.         :function_type          CallFunction
  1890.         :arg_type               ()
  1891.         :action                 (EditAdd)
  1892.         )
  1893.     )
  1894. )
  1895. (
  1896.     :type                   :button
  1897.     :name                   ModifyButton
  1898.     :owner                  EditCurrentSelectionControl
  1899.     :help                   ""
  1900.     :x                      144
  1901.     :y                      152
  1902.     :width                  57
  1903.     :height                 19
  1904.     :constant-width         t
  1905.     :button-type            :normal
  1906.     :foreground-color       "Black"
  1907.     :label                  "  Modify"
  1908.     :label-type             :string
  1909.     :initial-state          :active
  1910.     :menu                   nil
  1911.     :notify-handler         EditModify
  1912.     :event-handler          nil
  1913.     :user-data              ()
  1914.     :actions                (
  1915.         (
  1916.         :from                   (EditPopup ModifyButton)
  1917.         :when                   (Notify )
  1918.         :to                     (EditPopup ModifyButton)
  1919.         :function_type          CallFunction
  1920.         :arg_type               ()
  1921.         :action                 (EditModify)
  1922.         )
  1923.     )
  1924. )
  1925. (
  1926.     :type                   :button
  1927.     :name                   DeleteButton
  1928.     :owner                  EditCurrentSelectionControl
  1929.     :help                   ""
  1930.     :x                      264
  1931.     :y                      152
  1932.     :width                  57
  1933.     :height                 19
  1934.     :constant-width         t
  1935.     :button-type            :normal
  1936.     :foreground-color       "Black"
  1937.     :label                  "  Delete"
  1938.     :label-type             :string
  1939.     :initial-state          :active
  1940.     :menu                   nil
  1941.     :notify-handler         EditDelete
  1942.     :event-handler          nil
  1943.     :user-data              ()
  1944.     :actions                (
  1945.         (
  1946.         :from                   (EditPopup DeleteButton)
  1947.         :when                   (Notify )
  1948.         :to                     (EditPopup DeleteButton)
  1949.         :function_type          CallFunction
  1950.         :arg_type               ()
  1951.         :action                 (EditDelete)
  1952.         )
  1953.     )
  1954. )
  1955. (
  1956.     :type                   :button
  1957.     :name                   DeleteAllButton
  1958.     :owner                  EditCurrentSelectionControl
  1959.     :help                   ""
  1960.     :x                      376
  1961.     :y                      152
  1962.     :width                  65
  1963.     :height                 19
  1964.     :constant-width         t
  1965.     :button-type            :normal
  1966.     :foreground-color       "Black"
  1967.     :label                  "Delete All"
  1968.     :label-type             :string
  1969.     :initial-state          :active
  1970.     :menu                   nil
  1971.     :notify-handler         EditDeleteAll
  1972.     :event-handler          nil
  1973.     :user-data              ()
  1974.     :actions                (
  1975.         (
  1976.         :from                   (EditPopup DeleteAllButton)
  1977.         :when                   (Notify )
  1978.         :to                     (EditPopup DeleteAllButton)
  1979.         :function_type          CallFunction
  1980.         :arg_type               ()
  1981.         :action                 (EditDeleteAll)
  1982.         )
  1983.     )
  1984. )
  1985. (
  1986.     :type                   :popup-window
  1987.     :name                   PreviewPopup
  1988.     :owner                  window1
  1989.     :width                  188
  1990.     :height                 115
  1991.     :background-color       ""
  1992.     :foreground-color       ""
  1993.     :label                  "CD Preview"
  1994.     :label-type             :string
  1995.     :initial-state          :invisible
  1996.     :show-footer            t
  1997.     :resizable              nil
  1998.     :pinned                 nil
  1999.     :done-handler           nil
  2000.     :event-handler          nil
  2001.     :user-data              ()
  2002.     :actions                ()
  2003. )
  2004. (
  2005.     :type                   :control-area
  2006.     :name                   PreviewControl
  2007.     :owner                  PreviewPopup
  2008.     :help                   ""
  2009.     :x                      0
  2010.     :y                      0
  2011.     :width                  188
  2012.     :height                 115
  2013.     :background-color       "Light Gray"
  2014.     :foreground-color       "Black"
  2015.     :initial-state          :visible
  2016.     :show-border            nil
  2017.     :menu                   nil
  2018.     :event-handler          nil
  2019.     :user-data              ()
  2020.     :actions                ()
  2021. )
  2022. (
  2023.     :type                   :button
  2024.     :name                   PreviewStartButton
  2025.     :owner                  PreviewControl
  2026.     :help                   ""
  2027.     :x                      12
  2028.     :y                      16
  2029.     :width                  81
  2030.     :height                 19
  2031.     :constant-width         nil
  2032.     :button-type            :normal
  2033.     :foreground-color       "Black"
  2034.     :label                  "Play first  "
  2035.     :label-type             :string
  2036.     :initial-state          :active
  2037.     :menu                   nil
  2038.     :notify-handler         PreviewStart
  2039.     :event-handler          nil
  2040.     :user-data              ()
  2041.     :actions                (
  2042.         (
  2043.         :from                   (PreviewPopup PreviewStartButton)
  2044.         :when                   (Notify )
  2045.         :to                     (PreviewPopup PreviewStartButton)
  2046.         :function_type          CallFunction
  2047.         :arg_type               ()
  2048.         :action                 (PreviewStart)
  2049.         )
  2050.     )
  2051. )
  2052. (
  2053.     :type                   :text-field
  2054.     :name                   PreviewTimeText
  2055.     :owner                  PreviewControl
  2056.     :help                   ""
  2057.     :x                      100
  2058.     :y                      24
  2059.     :width                  71
  2060.     :height                 32
  2061.     :value-x                100
  2062.     :value-y                41
  2063.     :value-length           2
  2064.     :stored-length          2
  2065.     :rows                   3
  2066.     :foreground-color       "Black"
  2067.     :text-type              :numeric
  2068.     :label                  "seconds"
  2069.     :label-type             :string
  2070.     :layout-type            :vertical
  2071.     :value-underlined       t
  2072.     :max-value              60
  2073.     :min-value              0
  2074.     :initial-value          0
  2075.     :initial-state          :active
  2076.     :read-only              nil
  2077.     :notify-handler         nil
  2078.     :event-handler          nil
  2079.     :user-data              ()
  2080.     :actions                ()
  2081. )
  2082. (
  2083.     :type                   :button
  2084.     :name                   PreviewEndButton
  2085.     :owner                  PreviewControl
  2086.     :help                   ""
  2087.     :x                      12
  2088.     :y                      48
  2089.     :width                  82
  2090.     :height                 19
  2091.     :constant-width         nil
  2092.     :button-type            :normal
  2093.     :foreground-color       "Black"
  2094.     :label                  "Play last   "
  2095.     :label-type             :string
  2096.     :initial-state          :active
  2097.     :menu                   nil
  2098.     :notify-handler         PreviewEnd
  2099.     :event-handler          nil
  2100.     :user-data              ()
  2101.     :actions                (
  2102.         (
  2103.         :from                   (PreviewPopup PreviewEndButton)
  2104.         :when                   (Notify )
  2105.         :to                     (PreviewPopup PreviewEndButton)
  2106.         :function_type          CallFunction
  2107.         :arg_type               ()
  2108.         :action                 (PreviewEnd)
  2109.         )
  2110.     )
  2111. )
  2112. (
  2113.     :type                   :button
  2114.     :name                   ClosePreviewPopupButton
  2115.     :owner                  PreviewControl
  2116.     :help                   ""
  2117.     :x                      72
  2118.     :y                      84
  2119.     :width                  49
  2120.     :height                 19
  2121.     :constant-width         nil
  2122.     :button-type            :normal
  2123.     :foreground-color       "Black"
  2124.     :label                  "Done"
  2125.     :label-type             :string
  2126.     :initial-state          :active
  2127.     :menu                   nil
  2128.     :notify-handler         PreviewDone
  2129.     :event-handler          nil
  2130.     :user-data              ()
  2131.     :actions                (
  2132.         (
  2133.         :from                   (PreviewPopup ClosePreviewPopupButton)
  2134.         :when                   (Notify )
  2135.         :to                     (PreviewPopup ClosePreviewPopupButton)
  2136.         :function_type          CallFunction
  2137.         :arg_type               ()
  2138.         :action                 (PreviewDone)
  2139.         )
  2140.     )
  2141. )
  2142. (
  2143.     :type                   :popup-window
  2144.     :name                   InfoPopup
  2145.     :owner                  window1
  2146.     :width                  477
  2147.     :height                 263
  2148.     :background-color       ""
  2149.     :foreground-color       ""
  2150.     :label                  "Info"
  2151.     :label-type             :string
  2152.     :initial-state          :invisible
  2153.     :show-footer            t
  2154.     :resizable              nil
  2155.     :pinned                 nil
  2156.     :done-handler           nil
  2157.     :event-handler          nil
  2158.     :user-data              ()
  2159.     :actions                ()
  2160. )
  2161. (
  2162.     :type                   :control-area
  2163.     :name                   InfoControl
  2164.     :owner                  InfoPopup
  2165.     :help                   ""
  2166.     :x                      0
  2167.     :y                      0
  2168.     :width                  477
  2169.     :height                 263
  2170.     :background-color       "Light Gray"
  2171.     :foreground-color       "Black"
  2172.     :initial-state          :visible
  2173.     :show-border            nil
  2174.     :menu                   nil
  2175.     :event-handler          nil
  2176.     :user-data              ()
  2177.     :actions                ()
  2178. )
  2179. (
  2180.     :type                   :message
  2181.     :name                   InfoTitleMsg
  2182.     :owner                  InfoControl
  2183.     :help                   ""
  2184.     :x                      168
  2185.     :y                      8
  2186.     :width                  145
  2187.     :height                 13
  2188.     :foreground-color       "Black"
  2189.     :label                  "CD Edit   Version 2.10"
  2190.     :label-type             :string
  2191.     :label-bold             t
  2192.     :initial-state          :active
  2193.     :event-handler          nil
  2194.     :user-data              ()
  2195.     :actions                ()
  2196. )
  2197. (
  2198.     :type                   :message
  2199.     :name                   VersionMsg
  2200.     :owner                  InfoControl
  2201.     :help                   ""
  2202.     :x                      71
  2203.     :y                      36
  2204.     :width                  335
  2205.     :height                 13
  2206.     :foreground-color       "Black"
  2207.     :label                  "An application for annotating music from compact disc"
  2208.     :label-type             :string
  2209.     :label-bold             nil
  2210.     :initial-state          :active
  2211.     :event-handler          nil
  2212.     :user-data              ()
  2213.     :actions                ()
  2214. )
  2215. (
  2216.     :type                   :message
  2217.     :name                   InfoByMsg
  2218.     :owner                  InfoControl
  2219.     :help                   ""
  2220.     :x                      23
  2221.     :y                      56
  2222.     :width                  430
  2223.     :height                 13
  2224.     :foreground-color       "Black"
  2225.     :label                  "designed for use with the MAEstro Multimedia Authoring Environment"
  2226.     :label-type             :string
  2227.     :label-bold             nil
  2228.     :initial-state          :active
  2229.     :event-handler          nil
  2230.     :user-data              ()
  2231.     :actions                ()
  2232. )
  2233. (
  2234.     :type                   :message
  2235.     :name                   InfoNameMsg
  2236.     :owner                  InfoControl
  2237.     :help                   ""
  2238.     :x                      177
  2239.     :y                      96
  2240.     :width                  122
  2241.     :height                 13
  2242.     :foreground-color       "Black"
  2243.     :label                  "by Teck-Joo Chua"
  2244.     :label-type             :string
  2245.     :label-bold             t
  2246.     :initial-state          :active
  2247.     :event-handler          nil
  2248.     :user-data              ()
  2249.     :actions                ()
  2250. )
  2251. (
  2252.     :type                   :message
  2253.     :name                   InfoCopyrightMsg
  2254.     :owner                  InfoControl
  2255.     :help                   ""
  2256.     :x                      8
  2257.     :y                      136
  2258.     :width                  457
  2259.     :height                 13
  2260.     :foreground-color       "Black"
  2261.     :label                  "Copyright (C) 1990, 1991, 1992 Libraries and Information Resources (L&IR)"
  2262.     :label-type             :string
  2263.     :label-bold             nil
  2264.     :initial-state          :active
  2265.     :event-handler          nil
  2266.     :user-data              ()
  2267.     :actions                ()
  2268. )
  2269. (
  2270.     :type                   :message
  2271.     :name                   InfoStanfordMsg
  2272.     :owner                  InfoControl
  2273.     :help                   ""
  2274.     :x                      176
  2275.     :y                      168
  2276.     :width                  122
  2277.     :height                 13
  2278.     :foreground-color       "Black"
  2279.     :label                  " Stanford University"
  2280.     :label-type             :string
  2281.     :label-bold             nil
  2282.     :initial-state          :active
  2283.     :event-handler          nil
  2284.     :user-data              ()
  2285.     :actions                ()
  2286. )
  2287. (
  2288.     :type                   :message
  2289.     :name                   InfoEmailMsg
  2290.     :owner                  InfoControl
  2291.     :help                   ""
  2292.     :x                      179
  2293.     :y                      184
  2294.     :width                  119
  2295.     :height                 13
  2296.     :foreground-color       "Black"
  2297.     :label                  "Stanford, California"
  2298.     :label-type             :string
  2299.     :label-bold             nil
  2300.     :initial-state          :active
  2301.     :event-handler          nil
  2302.     :user-data              ()
  2303.     :actions                ()
  2304. )
  2305. (
  2306.     :type                   :message
  2307.     :name                   moreinfoMessage
  2308.     :owner                  InfoControl
  2309.     :help                   ""
  2310.     :x                      84
  2311.     :y                      204
  2312.     :width                  309
  2313.     :height                 13
  2314.     :foreground-color       ""
  2315.     :label                  "For more info, contact maestro@sioux.stanford.edu"
  2316.     :label-type             :string
  2317.     :label-bold             nil
  2318.     :init,Xl-state          :active
  2319.     :event-handler          nil
  2320.     :user-data              ()
  2321.     :actions                ()
  2322. )
  2323. (
  2324.     :type                   :button
  2325.     :name                   CloseInfoPopupButton
  2326.     :owner                  InfoControl
  2327.     :help                   ""
  2328.     :x                      220
  2329.     :y                      240
  2330.     :width                  36
  2331.     :height                 19
  2332.     :constant-width         nil
  2333.     :button-type            :normal
  2334.     :foreground-color       "Black"
  2335.     :label                  "OK"
  2336.     :label-type             :string
  2337.     :initial-state          :active
  2338.     :menu                   nil
  2339.     :notify-handler         InfoDone
  2340.     :event-handler          nil
  2341.     :user-data              ()
  2342.     :actions                (
  2343.         (
  2344.         :from                   (InfoPopup CloseInfoPopupButton)
  2345.         :when                   (Notify )
  2346.         :to                     (InfoPopup CloseInfoPopupButton)
  2347.         :function_type          CallFunction
  2348.         :arg_type               ()
  2349.         :action                 (InfoDone)
  2350.         )
  2351.     )
  2352. )
  2353. )
  2354.